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INDUSTRIA OGGI 



li mensile dell'alta 
tecnologia nell'industria 
moderna; soluzioni 
applicative e nuovi 
orientamenti in R&S, 
produzione e servizi 
Abb. annuo 
IO numeri 
lire 41.000 ... 
anziché lire SO.’OOO 


ELETTRONICA OGGI 


elettronico 

— — : ,CC0f 


— s a» 

■-V' 

' ..s 


La più autorevole rivista 
italiana di componenti 
strumentazione ed 
elettronica professionale 

Abb. annuo 
20 numeri 
lire 64.000 
anziché lire 


VIDEOTEL MAGAZINE 


INFORMATICA OGGI 


La rivista dei nuovi servizi 
interattivi telematici: 
applicazioni, fornitori 
di informazione, utilizzo. 

Abb. annuo 

6 numeri 
lire 20.000 
anziché lire^3fcG0§ 


; 



L'informatica 
professionale; 
dall'elaborazione dati 
afl'office automatica 
Servizi speciali 
e anticipazioni 
esclusive dalla Silicon 
VaNey 

Abb. annue 
11 numeri 
lire 40.000 
anziché lire 
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20.000 
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l 

40.000 

D PC L COMPUTER PRODUCT NEWS 

numeri 11 

L 

27 000 
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numeri 4 

L 

to.oqo 

□ PC WORLD MAGAZINE 

numeri 1 1 

L 

44.000 

□ BIT 

numeri ) 1 

L 

43 000 
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numeri U 

L 

66000 
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L 
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L 

115,000 
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numeri 6 

L 

15000 

D VI0EQGI0CN1 & COMPUTER 

numeri 1 1 

L 

18000 

□ COMPUSCUOLA 

numeri 9 

L 

21000 

0 ELETTRONICA HOBBY 

numeri 12 

t 

32000 

□ STRUMENTI MUSICALI 

numeri 1 1 

L 

35.000 
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numeri 4 

L 

70.000 
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numeri 4 

L 
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L'informatica nella 
didattica: problemi 
esperienze e prospettive 
del computer nel mondo 
della scuola. 

Abb. annuo 
9 numeri 
lire 21.000 
anziché lire Ì£Z;0QiJ 


VI DEOG IOGHI NEWS 


SpA 


tjA ' 


Il giornale di videogames 
e home computer, con 
recensioni di giochi 
sempre nuovi. 

Abb, annuo 
11 numeri 
lire 18.000 
anziché lire JÌSMJQiQ 


O VISA 


□ AMERICAN EKPHtSS 


O CHNCRS CLUB 










AUTOMAZIONE OGGI 



Robotica, controllo 
numerico, CAD/ CAM, 
sistemi flessibili... 
problemi e seduzioni pef 
la nuova automazione 
industriale. 

Abb. annuo 
Il numeri 
lire 46 000 
anziché lire 


ELET TRONICA, STRU MENTAZIONE 

& AUTOMAZIONE PRODUCE NEWS 

Il giornale di tutti i nuovi 
prodotti (Wretettromca, 
delta strumentazione 
dell'automazione 
industriale e 

dell'elettronica medicale. 

Abb. annuo 
11 numeri 
lire 26.000 
anziché lire 334JQÒ 


TRASMISSIONE DATI 


ELETTRONICA 
STRUMENTAZIONE 
A AUTOMAZIONE 
PRODUCT NEWS 



PC & COMPUTER PRODUCT NEWS PC WORLD MA GAZINE 


PC & COMPUTER 
PRODUCT NEWS 



Il giornate di tutti « nuovi 
prodotti hardware e 
software dell'informatica 
dai medi sistemi 
al Personal Computer 
Abb. annuo 
11 numeri 
lire 27.000 
anziché lire 



La prima e unica rivista 
italiana per gli utenti di 
personal computer IBM 
Olivetti e compatibili. 

Abb. annuo 
11 numeri 
lire 44.000 ^ 
anziché lire 55*>0Q 
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ELETTRONICA HOBBY 


NAUT1CAL QUARTE RLY 


eiETTROniGfl 

— NBMV 



La rivista per Ihobtwsta 
elettronico, il 
radioamatore, il 
riparatore rad iO-TV. 

I hardware dei personal 
computer. 

Abb. annuo 
12 numeri 
lire 32 000 
anziché lire 42htì00 



li trimestrale di cultura 
nautica più prezioso e 
raffinato dei mondo 
Emozioni da leggere, 
guardare e conservare, 
Abb annuo 
4 numeri 
lire 70.000 
anziché lireTjO OOÓ 


E TELECOMUNICAZIONI 



(I mensile dei nuovi 
sistemi 

di telecomunicazioni, data 
Communications 
e telematica. 

Abb. annuo 
11 numeri 
lire 36.000 
anziché lire 44.900 


La prima rivista europea, 
la più famosa 
e autorevole in Italia, 
di personal home, 
business computer, 
software e accessori 
Abb. annuo 
11 numeri 
lire 43.000 
anziché lire 53,OOCj 


COMPUTER URALICA 

& APPLICAZIONI L a rivista della grafica e 
iiHlTmmagine con il 
computer applicazioni 
pratiche per f industria, le 
professioni e i servizi Dal 
CAD/CAM alla pubblicità, 
Abb. annuo 
4 numeri 
lire 19.000 
anziché tire 


SUPERCOMMODORE 64 & 128 


La rivista con disco o 
cassetta dei package 
professionali, modelli 
applicativi e giochi 
intelligenti. 

Abb. annuo 11 numeri 
versione con cassetta) 
lire 70 000 
anziché lire 99900 
[versione con disco) 
lire 115.00“ 
anziché lire 


e 144-000 



La prima rivista con 
cassette programmi, 
dedicate agli utenti home 
computer Commodore 
64 e 128. 

Abb. annuo 
11 numeri 
lire 66.000 
anziché lire 82.600 


OLIVETTI PRODEST USER 


L'unica rivista per gli 
utenti dei sistemi Olivetti 
Prodest PC128 e PC128S 
Una guida alluso 
indipendente e completa 
Abb. annuo 
6 numeri 
lire 15,000 
anziché lire 18900 


AUTOMOBILE OUARTERLY 



Il trimestrale più 
prestigioso e raffinato del 
mondo, dedicato all'auto, 
alla sua stona, ai suoi 
miti. 

Per chi intende lauto 
come un fatto di cultura 
e di passione. 

Abb. annuo 
4 numeri 
lire 69.500 
anziché lire 80.000 


STRUMENTI MUSICALI 



Il mensile per i 
professionisti della 
musica: audìotesf, 
rassegne, computer 
music, servizi, interviste 
Abb. annuo 
11 numeri 
lire 35 000 
anziché lire 44.900 











M SUPERGAME * 


s 


u Manie Miner 

pensiamo si sappia 
aia tutto. 

Primo esemplare della 
generazione di giochi ti- 
picamente anglosassoni 
denominata platform 
game, apparve nelle 
classifiche ai vendita fin 
dal 1983 anno ormai di- 
stante anni luce secondo 
la rapida evoluzione del mondo 
elettronico. 

WILLY ALLA SCOPERTA DI UNA 
NUOVA CIVILTÀ 


Miner Willy è il simpatico prota- 
gonista di questa buffa avventura 
che inizia quando, passeggiando 
per la strada Surbiton , si imbatte 
nell'ingresso di un'antica ed ab- 
bandonata miniera. Dopo una 
breve esplorazione, trova le pro- 
ve di una civiltà ormai estinta ma 
assai superiore alla nostra. Tale 
civiltà, altamente industrializzata, 
traeva le proprie materie prime 
scavando in profondità verso il 
centro della Terra. 

Dopo secoli di pace e prosperità, 
quella civiltà fu lacerata dalla 
guerra e spinta in un lungo perio- 
do oscuro con la perdita delle lo- 
ro conquiste tecnologiche. Nono- 
stante questo stop al progresso 
nessuno pensò di fermare i robot 
nel loro lavoro di scavo. Quelle 
diligenti macchine proseguirono 

E er moltissimo tempo ad occumu- 
ire enormi riserve di materiali 
preziosi. 



HIGH SCORE ODOIOO 

SCORE OOOIOO 

LIVES 2 



Miner Willy decidedi non lasciarsi 
sfuggire questa sua straordinaria 
scoperta e si appresta a recupe- 
rare quella fortuna sotterranea . 
Ma il compito si presenta imme- 
diatamente tutl'altro che facile e i 
robot poca disposti a regalare il 
risultato di anni di durissimo lavo- 
ro mai pagato. 

LA MINIERA 

La miniera è formata da 20 came- 
re ognuna costellata di difficoltà 
di ogni genere e regno (nel senso 
di animale e vegetale): viole del 
pensiero velenose, ragni, sabbie 
mobili e naturalmente i diligenti 
minatori- robot. 

Per superare una camera bisogna 
praticamente percorrerla in lungo 
e in largo, utilizzando piattaforme 
e pedane per raccogliere tutte le 
chiavi. 

Quando non vedete più alcun 
oggetto lampeggiante entrate 
nella speciale porta che da ac- 
cesso alla camera successiva. 

Per raccogliere le chiavi di una 
stanza avete a vostra disposizio- 


ne un certo quantitativo 
di aria indicato da uno 
barra al centro dello 
schermo. Quando si 
esaurisce perdete una 
| vita. In Manie Miner 
avete tre vite per partita. 

IL PUNTEGGIO 
E QUALCHE 
CONSIGLIO 


Ogni chiave raccolta vale 100 
punti. 

Quando entrate nella porta con 
tutte le chiavi viene calcolato un 
bonus in base al quantitativo d'a- 
ria rimasto. 

Fate attenzione alle piattaforme 
perché alcune cedono sotto il pe- 
so di Miner Willy rischiando di 
farlo precipitare. Calcolate atten- 
tamente la distanza per i vari salti 
per evitare di atterrare su qualche 
oggetto mortole. Studiate attenta- 
mente la camera, magari utiliz- 
zando il tasto della pausa, per 
scoprire il percorso migliore per 
recuperare le chiavi. 

L'aria non è mai un problema vi- 
tale ma solo di punteggio: solita- 
mente è sempre sufficiente ed è 
più facile morire per qualche erro- 
re piuttosto che rimanere senza 
ossigeno 

I COMANDI 

Per muovere Miner Willy attra- 
verso i numerosi schermi potete 
utilizzare il joystick collegato nella 


4 




AMI MIN RICH D M n* 4/298449 del 10-12-06 



LA FORTUNA. 


1 premio 


cento e uno premi 



In palio, fra tutti gli abbonati, 
una scattante, elegante, ruggente 
Alfa 33 4x4 giardinetta 
(1500 cc.) 
nella 
versione 
più 


prestigiosa 
e super 
accessoriata, 
perfettamente a suo agio in ogni 
situazione, potente e nello stesso tempo 
parca nei consumi, protagonista instancabile di mille avventure. 


100 premi 



, ‘Juneoj 
yrtenunch 

tal IftH trjna il innpitdeU'Uftivaw 


Il fantastico orologio Time of Greenwich 
modello 120321. Uno strumento di altissima 
perfezione ed esclusività, in edizione limitata 
e personalizzata, realizzata appositamente 
per i fortunati vincitori abbonati Jackson, 
dalla prestigiosa Time of Greenwich. 
Distribuito in Italia da LED ITALY 


Reg olamento del concorso 


1 II Gruppo Editoriale Jackson S.pA 
promuove un concorso a premi in octa 
stone della Campagna Abbonamenti 
86/87. 

2 Per partecipare è sufficiente sotto 
scrivere, entro il 3L33987, un abbona 
mento a una delle 20 riviste Jackson. 

3 Sono previsti 1+100 premi da sor 
teggiare fra tutti gli abbonati. 

4 1° premio 

Un'automobile Affa 33 4x4 giardinetta 
(1500 cc.). Gk altri 100 premi consistono 
in altrettanti orologi Time of Greenwich, 


5 Gk abbonati a piu dfuna rivista 
avranno diritto, per l'estrazione, all’inse- 
rimento del proprio nominativo tante 
volte quante sono le testate sottoscritte, 

6 L'estrazione dei 1+100 premi in pa- 
Ito avverrà presso la Sede della Jackson 
entro il 30.53987, 

7 - L'elenco dei vincitori, ad estrazione 
avvenuta, sarà pubblicato su almeno 10 
delle riviste Jackson, 

La vincita inoltre, sarà comunicata con 
lettera raccomandata a ciascuno dei sor 
teggiati. 


8 I premi verranno messi a disposato 
ne degli aventi diritto entro 30 giorni dal 
la data dell'estrazione, 

9 Le spese di immatricolazione della 
Alfa 33 4x4 giardinetta saranno a carico 
del vincitore, 

IO \ dipendenti, i familiari, i collabora- 
tori del Gruppo Editoriale Jackson sono 
esclusi dal concorso. 


0 


JACKSON 


la Tua Rivista. 


■&SUPERGAME4* 



HIGH SCORI: 000964 SCORE 000964 
L1UES 1 



HIGH SCORE 001605 

SCORE 001605 

LIMES 1 




porlo 2 oppure i seguenti co- 
mandi: 

Sinistra: Q,E,T,U 
Destra: W ,R,Y,t 
Salto: Shift/Space 

Pausa: K 
Gioco: J 


ISTRUZIONI PER IL CARICA- 
MENTO 

Dopo aver introdotto la cassetta 
nel registratore con il nostro riav- 
volto all'inizio digitate: 

LOAD (RETURN] 

Quindi premete il tasto play sul 
registratore. Quando appare la 
scritta READY battete Kun La- 
sciate il tasto del registratore pre- 
muto perché dopo lo schermo 
con i comandi il coricamento pro- 
segue. 


Jackson, proprietario 
esclusivo dei diritti per 
l'Italia di questo gioco, 
invita i lettori che ne 
fossero a conoscenza, 
a segnalare l'esistenza 
di eventuali altre 
pubblicazioni contenenti 
questo stesso gioco, alla 
redazione della nostra 
rivista. 

Tali segnalazioni saranno 

convenientemente 

compensate. 





Le Grandi 


Guide 

diBIT 


Da gennaio e fino a dicembre ’87 
ogni mese Bit vi da’ un grande 
appuntamento in edicola con le Grandi 
Guide di Bit: veri manuali di riferimento 
di eccezionale utilità, dedicati al personal 
computer, alla programmazione, ai sistemi 
operativi, ai linguaggi. 

A fine anno possederete una biblioteca 
ricca, aggiornata e completa: per lavorare 
meglio e conoscere più a fondo il vostro 
personal computer. 

Ogni mese 
Bit ti aspetta in edicola 
con la sua Guida. 
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SLOT MACHINE 

di J. Rocke 

Trad. ed odati, di S. Albarelli 


Q uesto gioco vi farò vivere l'emozione di gio- 
care con una slot mochine e vincere (o per- 
dere) grosse somme di denaro, naturalmente vir- 
tuale. 

Nei casinò e nei migliori luna park una delle mag- 
giori attrattive sonoìe slot machines. 
la gente gioisce quando vede le monetine sgorga- 
re dalla fessura di quelle macchinette infernali, e 
molta spesso, perde parecchio denaro, poiché le 
vincite fruttuose sono rare. 

Con questo gioco per il Plus 4 e il CI 6 potrete gio- 
care con una coloratissima slot machine con simpa- 
tici disegni. 

Per imparare a giocare non occorrono molte istru- 
zioni, è sufficiente battere * " per introdurre due 
monete da I dollaro nella slot machine e mettere in 
moto i simboli, 

Se si vuole ritirarsi basto premere '= ” e il computer 
metterà in evidenza la vincita in quel momento, 

Si possono organizzare delle gare, cronometrando 
la partita di ciascun giocatore, e poi vedendo chi ha 
raccolto il bottino più alto in un dato periodo di 
tempo [3 minuti, per esempio). 

Ed ora buon divertimento, e attenti a non rimanere 
al verde!! 


I 

10 VOL8:COLOR0.2,6:COLOR4,2,6:COLOR1 ,14, 

4 

20 PRINT” I C L R I {FLASH ON I (1 2 SPCUCUR.GIU 
J ISH UH 1 4 SH M (SH 11" 

30 PR I NT" t FLASH 0NH12 SPCIISH MCOMPUTE 1 
R 1 2 SPC ISLOT ISH - I" 

40 PR 1 NT" I FLASH ON ) 1 1 2 SPCIISH Jl(14 SH 
• I ( SH Kt" 

SO DIMHH<3,4);DIMR(3):SC-1024;CL-55296:C 
R.l 0 ;W-0 :COSUBÓ80: FÙRI-0T03: H ( I )-0 : NE 
XT 

60 COLORI 1 2,3:PRINT h l2 CUR.G1UII3 SPC|{S 
H U H 5 SH * I ( SH 1)|2 SPCIISH U)(5 SH 
MiSH IH2 SPCHSH U}|5 SH * I l SH Il(2 
SPCI |SH U I 1 5 SH M ISH II" 

70 PR1NTM3 CUR.DESUSH - } ( b CBM B 1 (SH - 
)|2 SPCIISH -)(5 CBH BUSH -U2 SPCJI 
SH -> 115 CBH B|(SH -.||2 SPCIISH -1(5 C 
BM B II SH -O* 


80 PR I NT" 1 3 CUR.DESUSH -JI5 CBH BIISH - 
112 SPCIISH «115 CBH BIISH -1(2 SPCJI 
SH i||5 C BM BIISH -112 SPCIISH -)|5 C 
BM BIISH - )" 

90 P R I N T " (3 CUR.DESUSH -)15 C BM BUSH - 
112 SPCIISH -1(5 CBM BIISH - )[ 2 SPCJI 
SH -)I5 CBM BUSH -1(2 SPCIISH -}|5 C 
BM BUSH -I" 

100 PR I NT" I 3 CUR.DESUSH — J (5 CBM BUSH 
«112 SPCIISH - U 5 CBM BUSH - 1( 2 SPC 
USH -||5 CBM BUSH -112 SPCHSH -Il 
5 CBM BIISH 

110 P R I N T ” ( 3 CUR.DESUSH - | ! 5 CBM BUSH 
-112 SPCIISH «US CBM B1ISH--U2 SPC 
USH -US CBM BUSH -||2 SPCIISH -)( 
5 CBM B USH «I" 

120 PR I NT" [ 3 CUR.DESUSH J]I5 SH MISH K 
112 SPCIISH J U 5 SH MISH KU2 SPC II 
SH JU 6 SH MISH K|| 2 SPCIISH JII5 S 
H MISH K)" 

130 PRINTi COLORI ,2 , «! PRI NT" ICUR . DESU3 S 
PCU\* PER GIOCARE I 3 SPC I ' - ’ PER FIN 
IRE" 

1 40 00SUB21 Oi COSUB240 
150 Q ETÀ» ; IFA»*""THEN1 5 0 
160 IFAt-" -"THEN200 
170 IFA*O"\"THEN’50 

1 80 CR-CR-2 1 G0SUB21 0 : GOSU B2UQ : G05UB280 : C 
OSUB 68 O : IFC R-QTHEN200 
190 GOT0150 

200 COLORI , 6 : PRINT" (HOME U20 CUR.GIUHCU 
R.DES (GRAZIE PER AVER GIOCATO E.. .A 
PRESTO M " : END 

210 COLOR I , 1 3 . 4 : PRINT" (HOME | | ' 7 CUfi.GIU) 
14 SPC | POSSI EDI *17 SPC 11 6 CUR.SIN)" 
(CR 

220 COLORI , 8 :-PR I NT" IHOMEI I ’7 CUR.GIU)|15 
CUR .DES I" jCR 
230 RETURN 

240 COLORI , 13,4: PRINT" (HOME; [17 CUR.CIUÌ 
122 CUR.DESinNCITA *16 SPC U 6 CUR.S 
IN I " 

250 RETURN 

260 COLORI ,8 : PR INT" 1H0ME I U 7 CUR.CIUII32 
CUR .DES I" ;W 
270 RETURN 

280 F0RI-1T04 iCOLORI , IO 

290 PRINT" [HOME 117 CUR . Gl U I " 1 : FORK- 1 T05 : 
F0RJ-1TO4: JFK-JTHENPRINT" |RVS OFF|( 
4 CUR .DES I I 5 CBH B J ■ i i G0TO3 1 0 
300 PRINT" ( 9 CUR. DES I " i 
310 NEXTJiPRINT:NEXTK 

320 PRINT"! HOME I ( 7 CU R . 0 1 U ) " 1 : FO RK - ! TO 5 1 
F0RJ-1T04:IFK-JTHENPRINT" IRVS ON II 4 
CUR. DESIO CBM BI"ì:GQT0340 
330 PRINT" I 9 CUR. DESI"; 

340 KEXTJ : PRINT: NEXTK 

350 IFI-1THENPHINT" IHOMEI (7 CUR .GIU I [A C 
UR .DES ) " t ; COSUB4 1 0 




360 IFI-2TKENPRINT 1 ' IH0MEM7 CUR . GIU H 1 3 
CUR , DES) 1 ' j : G 0 S U B 4 1 0 

370 I FÌ-3THENPRINT" [HOME M7 CUR.GIUH22 
CUR , DESI 1 ' ; :G0SUB41G 

I 380 IFI-4THENPRINT" {HOME H 7 CUR.GIU} C 3 1 
CUR, DESI" j :GGSUB410 
390 S 0 U N 0 1 , 2 00 * 5 i N £ X 1 1 
400 RETURN 

I 410 MT-O!F0RJ-OTO4sWT«WT+MKtI-! ,J ) sNEXT 

I 420 FT-INT <RND'{0 )*WT+ 1 ) ; J*0 
430 FT-FT-»WH( IM ,J) 1 IFFT<«0THENR{I-1 )-J? 
G 0 T 0 4 7 0 

I 440 J-J+l 1 1FJ<4THEN430 
450 RCI^I )-4 

I 460 FRI NT" IfELLOW) (5 SPC )( CUR . Gl U |{ 5 CUR 
«SIN) (SH UMSH + } [ SH I] [ C U R , G IU ]{ 5 
CUR, SIN] (SH JIISH *MSH I] {CUR, Gl 
UH5 CUR .SIN ) [SH J](SH *J[SH K] {CU 
R # G I U ] (5 CUR «SIN J (5 $PC}":RETURN 
470 IFJ>0THEN500 

480 COLORI , 10 , 4 : PRINT” (5 S PC }( C U R . G I U }( 5 
CUR .SIN 1(3 SPCIiCBM P] (CUR, GIU } (5 
CUR, SIN] 12 SPC j t SH N)(SH ■* ] "j 
490 COLORI ,3. 4sFRINT" (CUR.GIU} [5 CUR, SIN 
ì {SH Q) l SH Q] [CUR.GIU] (5 CUR. SIN) 
{5 SPC ]* : RETURN 
500 IFJ > 1 THEN530 

510 COLORI , 1 0 , 4 - PRINT" [5 SPC M CUR * Gl U }[ 5 
CUR. SIN H2 SPC MSH U } (2 SPC ) ^ 1 
520 COLORI ,5 É 4; PRINT 11 [CUR.GIU] {5 CUR.SIN 
} I 3 SH Q] (CUR » G 1 U ] [5 CUR.SIN) (2 SP 
C J {SH Q | | 2 SPC f (CUR.GIU ] [5 CUft.SlNH 

5 SPC }"j RETURN 
530 IFJ>2THEN560 

540 COLORI t 6, Ut PRINT" {5 SPC H CU R . GIU H 5 
CUR.SIN } {SH I ] V{SH U ) "a 
550 COLORI ,9, 4 ; FRINÌ" (CUR.G1UH5 CUR.SIN 
j { 2 SPC] { C BM + ] I 2 S PC J (CUR «GIU J (5 CU 
R .SIN } (2 SPCJtCBH +][2 $ PC | { CU R , G I U } 
[.5 CUR.SIN J (5 SPC } " : RETURN 
560 COLORI • 3 , 6 s Piti NT* {5 SPC ) (CUfi «OIU 1 (5 
CUR.SIN] (CBH èMtCBH Pì{CBM P] H ; 

570 COLORI .16, fciPRlNT" (CUR.GIU ) (5 CUR. SI 
Hi {CSM MiRVS ON I i H V S OFF ) (SH \) { 
CUR.GIU) 1 5 CUR.SIN} (2 SPCJICSM Y]|2 
SPC ì {CUR .CIU } { 5 CUR.SIN ] {5 SFC]":R£T 
URN 
500 W*0 

590 IFft(0 )«0THENW*W*1 1 IFR <1 )-0T HENW-W+ 1 t 
IFR(2)-QTHENW-W*4 s IFR{3)»0THENW-W+ 1 7 
600 IFRtO)-1 ANDRÒ )- 1THENM-W* 3 * IFR12)-1T 
HENW-W*] 3; IFR13J-1THENW-W*S0 
610 IFR(D)-2ANDR( 1 ) ■ 2T HEN W -W - 4 ■ IFR(2)*2T 
HENW*N+60 ì1FR(3)*2THENW-W*80 
620 IFR (0 )^3ANDR( 1)*3AN0R{ 2 )-3THENW-W* 1 7 

6 : 1 F R { 3)“3THENW»W*154 

I É jO tFft (0 )* 4 ANpR C 1 )* 4 AN OH ( 2 )*4TH£NW-W* 1 2 
0; IFR{ 3)"4THEN»d-W*2000 
640 GOSU B 26 0 1 P-W 

650 IFW>10THENFQHJ*1TOINT(P/1q ) : C R - C R * 1 0 
:W-W^t 0 :G0SUB220t SOUND 1 ,990 , 1 : NEXT 

I 660 IFW>GTHENFORJ^1TOW:CR*CR+ 1 : W-WM : GOS 
UB220 t SOUND 1 , 1000, 1 1 NE XI 

I 670 RETURN 

600 WHCO t O)-8ìHH(CM KB;WH(O ( 2 )-$itni< 0 f 3 
)-3:WH (0 , 4 )-l 

690 UHO ,0)*4 1 MH( 1 1 1 )-4 ;WH(1 t 2)-3iUH( 1 .3 
J - 3 : W H ( 1 ,4)^1 

700 UHC2 f 0)<*3iWH(2 t 1 }- 4 ; UH { 2 , 2 3 s WH ( 2 , 3 

)-4 i UH (2 f 4 )*2 

710 HH(3,Q)"2iHHC3.1>-4;WH<3.2>-3*VM(l,3 
>-5:VH(3»4)-l 

I 720 RETURN 


GUIDA 

ALL'INPUT CI 6 
& PLUS 4 


TABELLA DI CONVERSIONE 


{HOME} 

&sùf. 

(CUR.GIUJ 
{CUR. DESI 
{ CUR.SIN } . 

{SPC} 

{RVSONi . 

{ RVSOFF } . 

{ INSTì 
{BLACK 
{WHITE 

{RED} 

{CYAN} 

{PURPLE} 

{GREEN} 

{BLUE} 

{YELLOW} .... 
{ ORANCE } .. 
{ BROWNJ .... 
{YL-GREEN} 

{ P/NK } 

{BL-GRNJ 

{LI BLUE} 

{D. BLUE) 

{LI GREEN} . 


HOME 

PULIZIA SCHERMO 
CURSORE IN ALTO 
CURSORE IN BASSO 
CURSORE A DESTRA 
CURSORE A SINISTRA 
SPAZIO 
RE VERSE ON 
RE VERSE OFF 
INSERT 

COL NERO (CTRL -hi} 

COL BIANCO (CTRL +2} 

COL ROSSO (CTRL +3} 

COL. CIANO iCTRL+4} 

COL PORPORA (CTRL-hS) 

COL VERDE {CTRL+6) 

COL BLU (CTRL +7} 

COL GIALLO (CTRL +8} 

COL ARANCIO (CBM+1) 

COL. MARRONE (CBM+2} 

COL GIALLO-VERDE (CBM 4-3} 
COL ROSA (CBM+4) 

COL. BLU-VERDE {CBM+5} 

COL BLU CHIARO (CBM+6) 
COL BLU SCURO (CBM+7} 
COL VERDE CHIARO (CBM-i-8} 


NORME PER LA BATTITURA 

I caratteri grafici, ottenuti con la pressione dei 
tasti "SHin e "CBM", sono codificati in modo 
da indicare il tasto da premere assieme a "Shift* 
o "CBM'\ Es. il cuoricino è codificato con 
>SH$<. Il numero dentro le parentesi indica le 
volte che il tasto va premuto. 


NORME PER IL CARICAMENTO 
DEI PROGRAMMI SU CASSETTA 

Le istruzioni di coricamento del supergame ven- 
gono riportate nel contesto dello relativa descri- 
zione. Oltre al supergame sono registati su na- 
stro tutti gli altri programmi presentati su questo 
numero i quali vanno coricati, salvo diversa indi- 
cazione, con; IOAD <RETURN> 
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IL GIOCO DELLA DAMA 

di F. Fanecco 


F ra tutti i giochi disponibili per i computers, gli 
scacchi e la dama sono considerati i "classici" 
r eccellenza, 

bbene gli esperii sostengano che il piacere di 
trovarsi a sii da re il computer in un gioco sia pretta- 
mente dovuto al fascino di misurarsi contro un'intel- 
ligenza "artificiale", capace cioè di esprimere ra- 
gionamenti sorprendentemente vicini a quelli uma- 
ni, la nostra opinione è meno ottimistica. 

Per prima cosa, un conto è perdere contro il com- 
puter, che fra l'altro non si vanterò di avervi battuto 
con nessuno, e un conto è perdere contro il vostro 
migliore amico. Pur sportivi voi siate ammettetelo: è 
sempre seccantel 

In secondo luogo, se la partita in corso dovesse 
evidenziare un incolmabile predominio del compu- 
ter potreste sempre trovare riparo in un vile "reset", 
o in una accidentale quanto fortuita "mancanza di 
corrente", 

Il programma che vogliamo proporvi, vi consentirà, 
se avete un po' di tempo a vostra disposizione, di 
divertirvi col vostro affezionato CI 6 + espansione o 
PLUS-4, magari scaricando lo stress di una giornata 
di studio o di lavoro, senza dover ricorrere agli 
qmici. 

E importante disporre di un discreto tempo per gio- 
care in quanto la routine è stata scritto in BÀSICe il 
computer è abbastanza lento nello scegliere le sue 
mosse. Impazienti e ipertesi state alla larga, questo 
ioco non fa per voi I 

iteniamo superfluo spiegare le regole della damo, 
in quanto pensiamo che tutti le conoscono; voglia- 
mo solo ricordarvi che la pedina è sempre obbliga- 
ta a mangiare un'altra pedina ogni qualvolta le toc- 
casse di farlo. 

Prima di mostrarvi (a scacchiera con le pedine, vi 
verrà chiesto il vostro nome, con gli auguri di un 
buon divertimento. 

Le vostre pedine sono quelle in basso, prive del 
pallino centrale, e il computer, per dimostrarvi 
quanto è generoso, vi concederà l'onore della pri- 
ma mossa. 

Non dovrete fare altro che digitare sulla tastiera le 
coordinate di partenza e di arrivo della vostra pe- 
dina. 

Ogni casella della scacchiera è infatti individuata 
da una lettera dell'alfabeto (da A a H) e da un 
numero (da 1 a 8). 

Le lettere rappresentano le coordinate verticali, 
mentre i numeri quelle orizzontali, cosicché una let- 
tera e un numero individuano completamente la 


posizione di una casello e della pedina su cui è 
situato. 

Le pedine si muovono soltanto di una casella per 
volta, mentre il "domane" di quante si vuole ma 
solo nella stesso direzione. 

Per trasformare la pedina in damone occorre che la 
stessa giunga nel lato opposto senza essere man- 
giata. 

Prima di possare al commento del listato ho un altro 
avvertimento do farvi: è impossibile barare!!!! 

IL PROGRAMMA 

Come è possibile constatare dall'esame del listato 
di seguito riportato, non esistono istruzioni grafiche 
particolari, od eccezione di qualche POK£, si può 
affermare che il linguaggio usato nello scrivere il 
programma sia il clossico BASIC. 

Ciò permette, con un po' di pazienza, di poter utiliz- 
zare le routines principali anche su altre macchine. 
Non abbiamo voluto aggiungere molti REM, poiché 
questi, pur rendendo leggibile il programma, lo 
avrebbero oltremodo rallentato. 


! REM DEFINIZIÓNE COLORI DELLO SCHERMO 
2 COLORW , « SCOLORO, A :SCNCLR 
13 V0L8 

IH SOUND2.935 , 1 3 

15 P R I N TT A 8 ( 8 ) " ( 8 CUR .Oli) ) 1 27 CbM *)• 

16 PRI NTTAB(8 )" (CBM *JI2S SPCH CBM ♦ )" 

19 PR1NTTAB(8 )" ICBM -|(BLACK)(2 SPCJIRVS 

0N| (FLASH ONJIL GIOCO DELLA DAMAIFL 
ASH OFF J f R V S OFF) I 2 SPCtirHK •)" 

20 PK1NTTAB(8)" (CBM * ) 1 25 SP ) [CBM *)" 

21 PRINTTABC8 )" 127 CBM •)" 

23 PR I NT" { 7 CUR, GIU] 18 CUR , DES ) PR EM I UN 
TASTO PER GIOCARE" 

29 GETKEYA» 

27 INPUT" (CLRI ( 3 CUR. GIU] NOHE DEL GIOCA 
TORE "[Gl» 

30 PR1NT" (CLR ] " 

3« PRINTTABt 1 0 )" (1 1 CUR.GIUJBUON DIVERTI 
MENTO "[GII 
35 FORLS «ITO 3000 
38 NEXTLS 
50 REM 

52 REM DEFINIZIONE COLORE DI SFONDO E C. 

53 REM 

59 CO LORO, 1 [COLORA, 16, 6:C0 LO Ri ,2 
55 RV-1/3iDIMT*(9),AU),S*<T,7>,C*(27) ,F 
*(27) :G--T :T*(2)-32 

66 PRI NT" (CLR ) " 

67 REM 

66 REM DEFINIZIONE DEL TAVOLO DI GIOCO 

69 REM 

70 M0-0:PRINT " t HOME } i C U R . OIU H 3 CUR.DES 
})SK 0}" [ :FQRJ-1TQ22i PRINT" (CBM TI";: 
NEXT : PRINT" (SH P]" 
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71 FQRJ-1T022: PR1NTTAB<3) {CBM G}”;TA6( 
2ó)" (CBM M}” iNEXT 

72 PRINTTAB(3) ;'MSH L ) " ; : F OR J - 1 TO 22 : p R I N 
TMCBM 0} " ; : NEXT : PRINT" [SH § } " ; 

81 15- 3072 j ft ( 0 )«-*99 : PC - 1 2 : PI* 1 2 

82 PRINT" (H0MEK3 CUR.DES} l 12 SPC}2 {2 S 
PC ] 3 I ^ SPC}4{2 SPC } 5 { 2 SPC ì 6 I 2 S P C > 7 t 
2 SPCj8 n ; 

8 3 F0RJ-1T04 ; FORX-1TQ3: PftlNT: FOftY-1TQ4 j p 
RINTTABC3) ; " (3 CUR.DESJiRVS OH }{ 3 SPC 
} ” j : NEXT : NEXT 

8*i F0RX-1TO3 ; PRINT : F O R Y ■ 1 T G 4 ; PR I N TTA B ( 3 ) 
iMRVS CNM3 SPC H 3 CUR.DES}” ; :NEXT: N 
EXT: NEXT 

85 PRINT” {RVS OFF 1{ HOME } (2 C U R , G I U } (CUR, 
DES } ” i : FORJ - 1 TOfi ! PftINTCHR$ ( 64* J ) ; : IFJ 
< STHEN PAINI” {CUR .SIN } (3 CUR .GIU j ” ; 

8 9 NEXT s PR INI” l HOME J " ; :FOR J- 1101 1 : PRINT" 
{CUR.GIU}” ; :NEXT:F0RJ-1T029: PftlNT” (CU 
Jt . D E S J n ; : NEXT 

90 FORI-6T024;FORJ-2tìT039:PQKElS*4QM *J , 
9 6 : NEXT : NEXT 

120 FQRX«0TQ7:F0RYwQT0?:IF{-1 )+( X+Y)>0 
THEN199 

160 1FY<3THENSJ (X, Y)*1 :GQT0199 
170 IFY>*ITHENS% C X , Y ) » - 1 : GOT0 1 99 
180 S*(X,Y)*0 
199 NEXT : NEXT 

201 Tt( 0)^209 : HO ) -87 : T$ £ 3 J -Si ;T*( H >-21 

5 

204 CQSUB300G:G0T01551 

205 REM 
210 HEM 

230 F0HX-QTQ7 : F 0 R Y - 0 T 0 7 : I F S X r Y ) > - 1 T H E N 
350 

310 1FS V( X, Y)--1THENFURA--1T01STEP2:B-G: 

MA-0 :MC-0 :G0SUBÉ50: NEXT 
3 30 IFS* U, Y)--2THENFGRA*-1T01STEP2;F0RB 
--1T01 STEP2:MA-QìMC«QìGQSUB650: NEXTB 

* A 

350 NEXTY » X:G0SUB4 100:00101220 

650 U-X+A:V-Y*B: 1 FU < OORU > 70BV < OOR V > 7THEN 

aro 

750 IFS*(U , V X0THEN87O 
7 60 I FSJ (X f Y )*nUNDSt( U , V J-2THEN&7Q 
770 I FS t ( U f V 3-OTHENGOSUP O 0 : V 70670 
7 90 U-U + As V-V + B: IFIKOQRl ’ . :QGRV>7THEN 

870 

860 1 F S % ( U f V ) « 0 T H E NG OS U B 9 * 

870 RETURN 
890 REM 

910 REM 

911 IFABS( Y-V } -STHENQ»^ i MA * 1 

912 1 FMA- 1 ANDSK X , Y ) — 2THENQ-Q* 50 

913 IFMA-OTHEN9SO 

91 4 UU-(X+U)/2:VV-(Y*V 1 . 

921 I FS*< X, YJ*-2THENQ-Q*50 

923 X1-4*UU^3*X;Y1-4*VV-3*Y;I FX 1 < OORX 1 > ? 
OR Y 1 <0GRY1 >7THEN925 

924 IFS* ( 3*UU-2*X , 3* VV-2*Y )- 1 ANDS*{ XI , Y 1 
) - 0 T H E N Q - Q + 1 0 : GOTO 1 200 

925 IFY1 <00RY1 >7THEN 1 200 

926 IFSKUU,3*VV-2*Y ) -1 ANDSJ C X, Y 1 J-OTHEN 
0-Q + 1 0 

927 GOT0 1 200 

930 REM 

931 REM 

980 FORCAI TO 1 STEP2: I FU *C < OOR U + C > 70 R V * G< 
0THEN1 090 

1040 IFU-C<0ORU-C>7ORV-G>7THEN t O90 
1045 IFS*(U*C , V*G)>OANDCSI(U-C ( V-G J-OOR ( 
U-C-XANDV-G-Y ) ) T H E NQ-Q- 4 5 : MC-1 
1047 1 FMC - GTH EN 1 090 

1050 KC-O: XI -X^2: Y 1 -Y+2: IFX1 <Q0RX1 >70RY1 
<OORY1 >7THEN1 065 

10 55 IFSJUX-l , X + l )--il ANDS*( XI , Y1 ) - QTHENT 


P- 1 : Q - 9 7 

1 0 60 I FTP- 1 ANDY 1 - 7THE NQ- - 98 : TP - 0 : MC - 0 : GQ 
TO 1 090 

10 65 XI -X + 2: IFXl <OORX1 >70RY1 <00RY1 > 7THEN 
1090 

1070 1FS*( X+1 , Y*1 )--l AMDSSUl ( Y1 ) -OTHENT 
P-1 : Q * -» 9 7 

1075 1FTP-1 ANDY1 -7THENQ--96 :TP-0 
1 090 NEXTC :GOSUB7GOD : I FS J ( X , Y J--2THENGQS 
UB6000;G0T01 200 

1091 IFY- 1 THENQ-Q* 1 5 

1092 1FF*( 10 J-OTHEN 11 54 

109 4 IFY<4AND(U-QGRU-7 )ANDC$ C 1 0 ) * 0 T H E N Q - 
0+15 

1 096 IFF%( 1 8 J-OTHEN 1 154 

1097 I F C % C 1 8 )>0THEN1 200 

1098 IFY<4AN0C$( 10)-QANDCtt 1 7)><2ANDC|( 1 
8 J-OTHENQ-Q+ 1 5 

1100 IFC*(1Q)XQANDCf (1 7)><0ANDC*( 18J-0T 
HENSW-Ì :Q-Q+5 

1102 IFSW- 1 ANDY< 3TMENQ-Q+ 1 0 :SW-0 

1103 lF(C$(10)-0ANDC3t( 17 )-2)0R(C(( 10J-2A 
NDCK 1 7 )-0 jTHENQ-Q-*30 

H54 I FF%(2 )-OORF%{ 1 6 J-OTHENl 1 62 
1156 IFC*(2)>0ANDCJ(5)--1 ANDC*( 12J--1 AND 
C|( 16)-OTHENQ-Q-*30 

1160 IFC*< 1 6 ) » 2 A N D C t ( 12)<0ANDC*(5)<0ANDC 
% (2)-0THENQ-O-4O 

1162 IFFt(6)-00mn 7 ) • 0 T H É N 1 166 
1164 IFCI C 1 7 ) > <0ÀN1>CÌ ( 1 0:)>0AN DCI (6 )-OTHE 
NQ-0+5 

1 166 I FFX ( 6 )-0THEN1170 

1168 IFCX(6)-0ANDC^(10)-1 ANDtU-70RU-0 ) TH 
ENQ-Q+5 

1169 IFCtt6)>0ANDCÌ ( 1 0 ) < OTHEN 0 - Q * 3 5 
1 170 IFFt(22 J-OTHEN 1 172 

1171 1FC*(22)>0ANDC*( 1 8 J - - 1 T H EN 0-Q * 35 

1172 I FFX( 5 J-OORF %(2 J-OTHEN 1 1 7 4 

1173 IFC|(5)--1 ANDCJU)>0THENQ-Q-30 

1174 IFFi (5 J-0THEN.1 176 

1175 IFY-7ANDCM 5 )- 1THENQ-Q-20 

1176 I FY-7ANOPC>7THENO-Q^8 

1177 ÌFY-6ANDP08THENQ-Q-7 

1183 IFF* [ 4 ) - 0 T H E N 1 1 85 

1184 1 PC J ( 4 ) -2THENQ-Q + 40 

1 185 IFFA( 12)-0ÓRF*(5)-0THEN1 18? 

1186 IFCM 1 2 )-2ANDCH (5 J-OTHENO-Q + 40 

1187 IFM(5 )-OORFH( 1 2 J-OTHEN 1 1 89 

1188 1 PC É ( 5 ì >OAN DC S ( 1 2 ) -OTHE NQ-Q+ 40 

1189 IPF*( 1 4 J-OORFS ( 1 & J-OTHEN 1 191 

1190 IFClMl0)-'*UNDCt(l8)--UNDC*O4)*-1 
THENQ-Q* 1 0 

1 191 IFF*( 21 J-OTHEN 1200 

1192 IPC*( 1 7 ) — 1 ANJ>C< ( 1 8>— 1 ANDCX <21 )-^1 
THENQ-Q+ 1 0 

1193 REM 

1194 REM MOSSA DEL COMPUTER 

1 195 REM 

1200 PRINT” {HOME ]( 3 CU R . G i U } " : PR I NTTA B ( 2 
9 )” 1 RVS ON} (FLASH ON } PENSO (2 SPC}" 

1201 F0RRC-229T0236 : POKEIS+RC , 32 : NEXT 
1205 IFO>R(0)THENR(0)-Q: R( 1 )-X: R(2)-Y : R ( 

3 ) -U t R ( 4 ) • V 
1210 Q-0 ; RETURN 
1220 IFR <0 J--99THEN1 880 

1230 MQ-MO+ 1 : PRINT" {HOMEÌ {RVS 0N}":TAB£2 

8) ;M0; ” (RVS OFF } " 

1231 PRINT” {HOME 3 t 4 CUR , 0 1 U } " : PRINTTAB { Z 

9 ) " (CUR .SU } { RVS ON ) COMPUTER" : G0SUB2 
200 : PRINTTAB ( 30); "(CUR. GIU} DA (2 SPC 
I ” i C $ 

1232 G0SUB2300; PRINTTAB( 31 ) ; H A {2 SPC}";C 

$ 

1233 Rt0)--99 

1 2 40 I F R ( 4 ) -OTHENSl t R ( 3 ) ,R (4 ) > - ^ 2 ;GOTO! 3 




50 

1250 SJOU3) ,Rm)-S*(R(1 ).R(2)J 
1310 5* (HM ) , R(21 )-0 : IFABS ( R ( 1 )-H(3 ) )><2 I 
THE(M 120 

1 330 SIC tRU )*Rt3)>/2. tfit2) + H(<D)/2J-0 
13*10 X-R C 3 ) :Y*R(*0 : IFSlfX.Y) — 1THENB — 2: 

F'OR A 2T02ST E P 4 : COSI) B 1 370 
1 350 I FSfiX, Y )*- 2THENF0RA--*2T02STEP4 : FQR I 
B--*2T02STEP4 jGQSUBl 370:NEXTB 
1360 NEXT A 

1 364 IFR(Q)><-99THENG0SUB2300:PRINTTAB(3 I 
0); n lU[2 SPCJ" }C$:R(0)-^99:GQT0124G I 
1365 PRINTiGOTGI 420 

1 370 U-X« hi V*Y*B: I FU <0Q RU > 7QR V < 00 R V >7TH£ 

NI 400 

1375 IFS*(X,Y )-MANDSf(U l V)-2THEHll(QX*9 
9 sOOTOI 400 

1 360 IFSKU , V ì-OANDSi l X+A/2» Y + B/2 )>OTHEN 
G0SUB9 1 0 
1400 RETURN 

1405 REM 

1406 REM CHIAMATA SUBHOUTINE 
1410 REM 

1 420 GOSUB3QQO 
1430 REM 

1435 REM INPUT MOSSA DEL GIOCATORE 
1440 REM 

1551 PRINTTAIM 29 ) 11 ( C U R . G I U )HUOVE n : PRINTT 
AB(29) H ÌRVS OHM FLASH GNÌ";GI$ 

1590 P R I N T T A B ( 30) t INPUT” { CU R * 0 1 U } D A "}A3 
ìG0SUB200G:X-EìY-H 

1592 IFX<QGRXOTHENPR INT" iCUR.SU i" ; ;GOTO ) 
1590 

1593 IFSKX.Y X*0THENPRINT" (CUR.SUP; iGO 
TO 1 590 

1595 IFNQI-ITHENWQI-O: FR1NT* [CUR.SU ]"? :G 
0 T 0 1 5 9 0 

1 670 PH1NTTABC31 ) ? INPUT "A " ; A $ : GGSU B 2 1 00 
ì X • A : Y *B 

1675 IFHUX*lTHENWQi*Qi PRI NT* ÌCUR *SU )" ? ;G 
OTOI 670 

1710 QWf-SlEC(B*A)/2 4 <H + B)/2) 

1715 GO5UB2O0O j 1FWQ*-1ANDQW*>.0ANDAB5(B- 
H X-2THENWQI-0: PRI NT" (2 CUR.SU]";tC 
0TO1590 

1717 IFB~H<GANDS*<E .N)-i TRENI 7 49 
1720 IFABStB-'H 2ANPQW»>-0THEN 1 7 4 9 
1725 I FABS ( B-H ì - 2 AN DQ W| 2A N DS % ( E , H ) * 1 TH 
ENI 749 

1 7 40 IFS*( X , Y) XOORABS ( A- E )>20RABS{A-E ì > 
<ABS{ B-H ÌTKEN 1 ?49 
1 7 4 & GOTO 1750 

174 9 PRI NT’MCUft .SU ì " i ì GOTO 1 670 
1 750 SI (A (E.H) iSf (E.Hj-Dt I FA BS ( E> A 

) X2THEN 1810 

I l 600 Sf ( (E+A)/2 t (K*B)/2)-0t G0SUB300C 

1 801 F0RJ*^1 T01STEP2i FORK-^1 T01STEP2: X2- 
A + 2* K t ¥2*B+2 # J 

1 602 IFX2<00RX2>70RY2<00RY2>7THEN 1 607 
1803 XI »A*KiY1*B*JtIFX1 <OORX 1 >70RY 1 <OORT 
1 >7THEN1 807 

180 4 IFS|( A , B ) • 1 A N DS f { X2 , Y2 )*0AN OSI ( X 1 ,ì 
1 )-*l AND*X1THEN1816 

1805 IFSIU ,B )-2ANDS*C X2* Y2 XOANDSf (Xì , Y 
1 X0THEN1816 
1807 NEXTiNEXT 
1610 GOT0 1 820 
1814 REM 
1815 REM 

1816 E-AiH-B:G0T01 670 
1820 IFB-7THEN5IU , B )-2 

1830 M0-H0*1 : PRINI" {HOME} |RVS 0N}";TAB(2 
8);MO;MRV3 OFF} * 1 GOSU B3000 : COSU B 40 
O0ìGOTO23O 
1680 G0T04300 
1900 END 


2000 H-72-A5C (MID$( A* 1 1 ) ) ; E- V AL ( MI D « ( A $ . 
2) XI 

2001 IFH<00RH>70RE<0ORE>7ORH--24THEN2050 

2002 I F ( 1 ) ♦ ( E ♦ H ) > OT HE N 205 0 
2005 WQf-OìRETURN 

2050 WQI - 1 s RETURN 

2080 lH*|S"120 , H*3 # E+924 

2082 I FS I ( E ,H )*1THEN20 66 

2084 IFPEEK ( IN* 1 2 3 3 2 O R P E E K { I N + 1 1?)»32T 

HENRETURN 

2086 IFPEEK ( IN- 1 23 )-320fi PEEK ( I N- 1 17)-32T 
HENRETURN 
2090 WQl-1: RETURN 

2100 B ■ 7 2 - A S C ( M I D $ (, A S , 1 ) J ; A -VAL ( Mi DA ( k$ , 
2 ) XI 

2101 I FB<0ORB>7ORA<£JORA>7ORB*-24THENWUl“ 
1 i RETURN 

2102 IFC-1 ) *{B* A XOTHENRETURN 

2103 WQI-1 jRETURN 

2 2 00 C$-CHR|(T2-*R( 2))*CHR$(R( 1 X 49 ) : RETO 
RN 

2 300 CI^CHRI (72-R ( 4 j ) + C'H R $ ( R ( 3 ) + 4 9 ) iRETU 
RN 

2310 REM 

23 I 6 REM INIZIO SU BRU UT 1 N E 
2320 REM 

3000 FGHY-7T00STEPM :FGRX-0TG7: IN-IS-120 
U+3 # X*924 

3020 iF(-l )>0THEN3070 

3030 P0KEIN*Tf(S»U*Y)*2) 

3070 NEXTX'Y : RETURN 

4 000 PC-Of PT*Oj F0RJ-0T0 7 jFGRK*0TO7 :S«SS ( 
J ( K ) 1 2FS-0THEN4050 

4010 IFS<OTHENPC*PC* CHASSIS Xl ;GOT04050 

4020 PT-PT*2*ABS(SX1 
4050 NEXTiNEXT 

40 60 FRI NT*] HOME) " : FOR J * 1 T022 ; PR I NT " (CUR 

■GIU]* j 1 NEXT 

4065 PRINTTABUO ì; " ( 9 SPC ] * 

4067 PRINT" I HOME \ « : FQRJ - 1 T022 i PRINT" ICUR 
.GIU]*} i NEXT 

4 0 70 CI-^C^+STRKPC )* " - 11 ** T * + STR * ( PI ) : PR 
1NTTABC 30 ) }* \ RVS ON ì " ; C I ; " ( R V5 OFF ì 
« 

41 DO F0RX6T022i F0RJ*26T0 39s POKEIS^ 40" I ♦ 

J ( 96 3 NEXT 1 NEXT 
4200 1FPC/PX-RVTHEN 4jOU 
4210 1 F P T / P C < - R V T H E N 4 4 0 0 
4220 Pft I NT* t HOME ) * ì ; RETURN 
4230 REM 

4240 REM STAMPA RISULTATO DEL GIOCO 
4250 REM 

4300 SO U N D 3 1 5 ,150sPRINT" ( C L R j 1 v CUR. GIU] 

15 cuh . desìho perso t ! * bfb :nt* 12 cu 

R.GIUM5 C U R * D E S ) H A V INI l ";GI3:END 
4 400 SOUND? , 950* 1 0 0 ; PRINT* [ HOME J * : PRINTT 
AB(30)i M H0 VINTO IO" 

4401 prihttab(28) sisalame n m 

4500 FOfiJ-1T04000iN£XTtRUN 

5998 REM 

5999 REM 

6000 IFFI ( 1 8 X0TKEN6O6D 

6001 1FMC-1 ANDCKieXlOftCìnO X10RCK17) 
• 1 THENQwO t MC »0 

6002 IFFIU6X0THEN6O0 4 

6003 1FC|(12)-2ANDCI ( 1 6 IX0AMDC1 C 1 8 ) ><2T 
HENQ-a+60 

600 4 I FC I ( 1 2 X2ANDCX 1 8)THENw-Q*6G 

6006 ÌFF*(QX0THEN6009 

6007 IFCK4 J-2ANDCX0 ) XOANDCI ( 1 8 JX2THE 
NQ-Q*60 

6009 1 FC f ( 4 ) * 2 AH DC f ( 1 6 ) ><2TBENQ-0*60 
6011 IFCI M 8 )-20RtC| ( 17 )-2ANDCl(I0 )-0 )0R 
(Citi? XOANOCIU 0X2 JTHENQ— 60: RETO 
RN 
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6020 

IFF1U 7 )*0THEN6040 


| 

U 20 )~OTHEMQ-Q*35 

6030 

lFCXUa)-lANDC*(22)-0ANDC*(27>X2AN 

61 60 

1VFU22 ì-QTHENb 1 80 


DCj ( ’ 9 )X2ANDCt ( 26 )*X 2THENO-0 + 25 

6170 

iFCtt 1 8 )<0ANDC% t 22 )-2THEMQ*Q*25 

60<i0 

1FFX(22>-0THEN6Q60 

6180 

I F F S ( 2 0 ) * 0 T H I N 6 200 

6050 

IFC((18)«1ANDCJ!22>-0ANDFJ(27 i-OTHE 

6190 

lFCt( 1 7)<0ANDCSt20)>0THENtì*Q + 25 

NQ-Q+25 

6200 

IFF* (6)«QTHBM622Q 

6060 

I FFt(24)-0THEN6080 

6210 

IFC*{ 10)<0AKDC|(6 ■ )-2THENli-Q* T5 

6070 

1FCK 17 )•! ANPCX(2O>-0ANDCX < 16 )><2AN 

6220 

Q-Q-s5 : RETURN 


DCX(24>X2ANDCX(25)X2THENQ«q + 25 

6230 

REM 

6060 

IFFJ120J-OTHEN6100 

6235 

REM 

6090 

1FCX( 1 7)-l A*DC*t20)-0ANDF*(2# 1-QTHE 

7000 

M«0; FORJ--2T04; L«J-2MNT( U*2l/2 ì »F 

61 00 

NU-U+Z5 

IFF*(3)-OTHEM6120 

7004 

QftK«*LT0L + 6STEP2 

UU*U : VV-V 

6110 

IFCXU 0)-1ANDC1(6 )-0ANDCl(2)X2AN0C 

7005 

1 FMA * 1 THEN0U* ( X + U ) / 2 ; W* ( ¥♦ V >/2 


1 ( 3 ) X2ANDCJ t 1 1 )X2THENU-Q + 25 

7010 

X 1 • J » C UU-XÌ+X : Y1-KMVV-.Y ) + ¥ 

6120 

IFFX(6)-0THEN61 40 

7020 

I F X 1 C0ÓRY1 < 0 0 R X 1 >7 ORTI >7THENFI(M)**0 

6130 

ÌFCKIO >-1 ANDCI <6 )-0AKDFl( 3 1-0THENU 


; GOTQ7 040 


-0*25 

7030 

Cf (M)-SS(Xl t 5M ) 

6140 

1 FF*(2O)-0ORFJ(6)-OTHEN616O 

7040 

M-M*1 : NEXT^NEXTi RETURN 

6160 

IFCSUT) >0ANDO( 10 )> DANDO (6 )-0ANDC 

7050 

REM FINE 
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DIARIO-AGENDA 


A desso vi sorò impossibile dimenticare un ap- 
puntamento o un anniversario con il pro- 
gramma DIARIO-AGENDA. 

DIARIO-AGENDA funziono su ogni Commodore, 
con il disk drive o il registratore. 

La stampante è opzionale. 

Usando la potenza del computer e stato possibile 
fare uno agenda elettronica, cosi anche i più pigri 
(e non) possono ricordarsi i loro appuntamenti. 

Il programma DIARIO-AGENDA ha cinque op- 
zioni: 

1. Vedere eventi futuri, quando si sceglie questa 
opzione bisogna dare al computer la data dell'e- 
vento, se si immette la aata corrente DIA- 
RIO-AGENDA presume che è la stessa data ma del 
prossimo anno e fa vedere all'utente tutti gli eventi a 
quel momento memorizzati. 

2 . Aggiungere un evento, prima di tutto bisogna 
scegliere se i'evento è permanente o temporaneo, 
poi si deve immettere la data e il dettaglio (es. dot- 
tore, compleanno). 

3 . Cancellare un evento, per far ciò bisogna cono- 
scere la data, e poi bisognerà scrivere il numero di 
codice, dato dal computer accanto all'evento. 

4 . Cercare un evento, per cercare un evento biso- 
gna scrivere il dettaglio dell'evento almeno le prime 


cinque lettere. 

Se per esempio il calendario contiene: club di ten- 
nis, club elezioni, e si immette la parola "club" i due 
eventi vengono dati all'utente 

5 . Fine, scegliendo questa ultima opzione tutti i doti 
eventualmente immessi o cancellati vengono regi- 
strati su disco o su cassetta. 

Per non accedere ogni volta al calendario dì DIA- 
RIO-AGENDA, è anche possibile stamparsi gli 
eventi. 

NOTE AL PROGRAMMA 

La prima volta che si fa partire il programma, cioè 
dopo averlo caricato o digitato, non bisogno dare il 
solito RUN ma si deve digitare: 

RUN 100 

se non si fa questo, il programma non lavora corret- 
tamente. 

DIARIO-AGENDA non controlla la data di FEB- 
BRAIO, se si immette per esempio FEBBRAIO 30, 
questo verrà accettato ma causerà grossi errori di 
calcolo nel programma. 

Il programma tiene in memoria fino a 100 eventi, se 
si vogliono aggiungere altri eventi bisogna cambia- 
re il valore di L$ nello linea 150 che contiene L$ 
(100), questa linea dimensiona le variabili. 
Guardando gli eventi permanenti si noterà che 
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questi hanno solo ii giorno ed il mese, questo per- 
chè ogni volta capita sempre nella stessa data, co- 
me ii compleanno o l'anniversario di matrimonio; 
invece gli eventi temporanei hanno anche l'anno, 
es, un appuntamento. 

Il numero di anno è sempre maggiorato di uno, cioè 
se noi oggi )es. 1987) immettiamo un evento tem- 
poraneo quando andremo a vedere l'evento note- 
remo che il numero di anno è, sempre con il nostro 
esempio, 1988. 

Gli eventi temporanei una volto passati vengono 
cancellati dalla memorio. 

La data massima del proqramma è 32 Dicembre 
2084. 


90 F- ( 1 *1 ) 


100 

GOSU92250 


1 10 

DATA QEN.FEB.MAH, APR .MAG.G1U 


120 

DATA LUG,AGQ,SET ,0TT ,N0V , DI C 


1 30 

DATA DOMENICA , LUNEDI .MARTEDÌ .MESCOLE 

1 40 

DI 

DATA GIOVEDÌ , VENERDÌ .SABATO 


150 

DIM M$( 12) ,WI<6),L*< 100) 


1 60 

FON J- ! TO 1 2 


170 

READ Mt(J) 


1 80 

NEXTJ 


! 90 

F 0 RJ- 0 T 06 


200 

READ N*U> 


210 

NEXTJ 


220 

PRINT "CALENDARIO DI EVENTI" 


230 

IFF-0THEN260 


240 

C*' 


260 

GGSUtì 30 1 0 


255 

IFE-0THEN260 


256 

F*G 


260 

PRINT "DATA DI QGG I i " 


270 

Y8-Y9 


200 

GOG U B 1 670 


290 



300 

00-D 


310 

1FH&>-H9 THEN 330 


320 

70*79* 1 


330 

IFHBOH9 OR D 8 > - [>*9 T H E N 3 5 0 


340 

7 S* Y 9 * 1 


3^0 

IF YS<*Y 9 THEN370 


360 

PRINT 11 BUON ANNO 1!" 


370 

IFFTHEN400 


360 

FRI NT" ANNO ,f * 


390 

INPUT 70 


400 

D9!*RlGHT$(STR$t 100*M9Ì ,2) + '*/* 


41 0 

D 9 $ - D 9 $ * R 1 G H T $ (STRI t 1 00*D9 ) » 2 ) 


420 

ÌFFTHEN440 


4 30 

D9I-D6S 


440 

F- C 1 - 1 ) 


450 

GOSU B i960 


4 60 

FRINÌ" EVENTI PASSATI : ** i 


470 

IF LO > -OTHE N600 


400 

PRINT" NESSUNO" 


490 

G0TO650 


500 

PRINT LO* 1 


510 

G0SUB40VD 


520 

F9*^1 


530 

FORJ-OTO LO 


5 40 

IF HI D$ ( L$ ( J ) • 6 , 1 >- tt /»TKEN57Q 


550 

L$U9)-LS( J> 


560 

L9*L9+ 1 


570 

NEXTJ 


500 

L 0 - L 0 * 1 


590 

FOR J »L8 TO L9 -1 


600 

Lit J-L0)-L$CJ) 


610 

NEXTJ 



620 L9-L9-L8 
630 L8-0 
640 L-L9 
650 F-Q 
660 F9-0 
670 D9S-D8* 

680 L-L9-L0 

690 IFLO0THEN71 0 

700 PBI NT "NESSUN EVENTO FUTURO" 

7 1 0 1FL-0THEN730 

720 PRINT L i "EVENTI FUTURI" 

730 PRINT 

740 PRINT"! .VEDERE EVENTI FUTURI" 

750 PRINT"2. AGGIUNGERE UN EVENTO" 

760 PRINT"3 .CANCELLARE UN EVENTO" 

770 PRINT "9, CERCARE UN EVENTO" 

780 PRINT" 5. FINE” 

790 PRINT 

800 PRINT" . . .SCEGLI 0-5) " ! 

810 INPUT A 
820 PRINT 

830 0N A GOTO 850,940,1210,1450,1570 

840 GOTO730 

850 PRINT "DATA !» 

865 FL-1 
860 C0SUB1 670 
865 FL-0 
870 G03UB 1 960 

875 IF D8I-D9I THEN L0-L9-1 
880 IF LOO-1THEN910 
890 PRINT "NESSUN EVENTO” 

900 G0T0920 
910 GQSUB401 0 

920 PRINT L9-L0- 1 i " ALTRI EVENTI FUTURI" 
930 GQT0730 

940 PRINT" 1 fi VS 0NIPIRVS OFF 1 ERMAMENTE- l R 
VS ONÌTtflVS 0FFtENP0RANE0"i 
950 INPUT P* 

960 A*0 

970 PI-LEFTKP* ,1 ) 

980 1 FP Ì*"T"THEN ! 0! 0 
990 A * 1 

1000 IFP*o"P»THENT30 
1010 GOSUB167Q 

1020 Y|."/"*HlCHTt(STR$(1Q!*Y8) ,2) 

1050 I FA< > 1 THEN 1 070 
10 60 Y I « " " 

1070 GQSUB I960 
1080 I F L9-1 <L0* 1 THEN 1 1 20 
1090 K0RJ-L9-1 T0 L0*1 STEP-1 
1 100 L $ ( J + 1 )-L*(J) 

1110 NEXTJ 

’ I 20 PRINT "DETTAGLIO! " ; 

1 1 30 INPUT LLt 
1 « 40 D8t-Dtìt*Yt 
1 150 D8t-D8t *" « 

1 1 60 LI (LO* 1 )-D6**LLt 
1 170 L9-L9* 1 
1 ’ 80 L-L9 
1190 F9--1 
1200 C0TO680 
1210 PRINT "DAT A 
1220 QOSUB! 670 
1230 L0-- 1 

1240 FORJ-L8 TO L9-1 

1250 IF 086< >LEFT* ( L*( J ) , 5 >THEN’ 300 

1260 L 1 -J 

1270 IFLOO-1THEN1290 
1280 LO-J 

1290 PRINT Js"j "iLltJ) 

1 300 NEXT J 
1 3’ 0 I FLOO- ! THEN 1 340 
1 32Q PRINT" NESSUN EVENTO" 

1 330 GOTO? 30 
1340 PRINT 
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1350 PRINT" CODICE EVENTO 1 ' ; 

1360 INPUT k 

1370 :F A<LO OR A>L1 THEN730 
1 380 FGRJ-A TO L9- 1 
1390 L*(J)-L#U*1) 

1400 NE XI 4 
1410 L9-L9-* 

142G F9— 1 

1 * 30 P fi i N T * CANCELLATO" 

'4 40 G0T06S0 

'450 PBINT"CERCQ : " ; 

'4 60 INPUT PS 

I T AITO P-LENCPSÌ 
'480 FQRJ-0 TO L9- 1 
'490 A-7 

1500 1F MIDStLSCJ) ,6,1 J < > " / '* T H E N 1 5 2 0 
1510 A-10 

1520 IF A + P-1 >L£K(LI(J) ) Olì PSOMIPIILK 
4 ) « A , P ) THEN 1540 
1 5 30 FRI NT Lt(J] 

1540 NEXT J 

1550 PRINT M H SPCjFINE RICERCA 11 

1560 GOTO? 30 

1570 IF F9O0 TREN '590 

1575 IFOTRENCLOSE15 

1580 END 

1590 PRIMI "SCRIVO IL NUOVO FILE"; 

1600 INPUT PS 

'610 IF LEFTS t P$ t 1 )- n S n THEN 1 630 

1620 STOP 

1630 D9$-D9$+"/" 

1640 D9S-m*RI0HT*{STR$( ¥8 + 100) , 2 > 

1650 C-2 
'660 GOTO JO’O 
1670 M-0 

'680 PRIJ^T' l MESE f, i 
1690 INPUT MM $ 

1700 M-VAL(MMI) 

1710 MM $ - L E f T $ ( MK $ + " X X *’ » 3 ) 

1720 IFK-OTHEN' 760 

1730 IFM<' OR M> 1 2THEN 1670 

1740 PRINTKt(H) 

1750 GOTO 1 8' 0 

'760 FORO- ' TO ! 2 

' 770 IF ) T H E N 1 7 9 O 

1780 K-J 

1790 NEXT J 

1800 I F M < 1 OH M>12THEN1 670 
1810 PR1NT" GIORNO" ; 

1620 INPUT D 

1630 IFD< 1 OH D>31THEN'fc?Q 
1 840 D 8 I,* RIGHISI STRI C 1 0 0 * M ) « 2 > * 11 / M 
1850 D 6 $ - D 8 S * R I G H T S ( ST R $ ( 1 0 Q + 0 ) , 2 } 

1860 Y-Y8 

'865 IFD6S-D9I AND FL-1THEN18B0 
70 IFD8$>-LEFT$<D9S ( 5JTHEN189Q 
80 ¥ * Y 8 + 1 
1890 GOSUB2150 
1900 I F L E N { l L $ ) < - 0 T H E N 1 9 2 Q 
'910 P R I N T " ( 11 ; H S ( W ) j'M" 

1920 RETURN 

1930 C-' 

1940 C0SU83Q10 
1950 RETURN 
I 960 LLÌ-CHR $ ( 255 ) 

197tf LO**- 1 
1980 IFLO0THEN2000 
1990 RETURN 
2000 V $ -* B 6 $ + L L S 
2010 «WS-D9I 
2030 WW $ *091 + LL $ 

2040 F'-(WW*>V$I 
2050 FOBJ-LS IO L9- ' 

2060 F2-(L*( J ) >VK$ ) 


2070 F3-C V$>L|{ J ) ) 

2080 FQ-F2 AND F3 

2090 IF Fi *0 THEN21 10 

2100 F0-F2 OR F3 

2110 IF FQ-0 THEN2I 30 

2 120 LO-J 

2130 NEXT 4 

2140 RETURN 

2150 IF¥>-85THEN21 70 

2160 ¥*¥+100 

2170 K1-H+1 

2180 M2-IMTÈ WM1 + ,7> 

2190 H3-Y-H2 
2200 H4-H1 * 1 2*M2 

2210 H-IHT(K4»30,6001 ) + I NT ( M 3 * 365 . 25 ) * D 
2220 Mb-INTlN/T) 

2230 W-N-7'Mè 
2240 RETURN 
2250 PR2NTCHR${ 1 47 J 
2260 RETURN 

3000 REM ROUTINE INPUT/CUPUT 
3010 F$- "EVINTI w 

3020 PR I N T M D I SCO 0 CASSETTA D/C 7" 

3030 GETAS : 1F< U$<>"C" )AND( A*<>"D'' ) )0RA| 
- wrt TKEN3030 
3040 IFA$-"D"THEN3060 
3050 01*0:01 -"" ì G 0 TO 3 0 7 0 
3060 F$-"#0ì"+F$:D'-1 
3070 IFC-2THEN3160 
3080 IFD1*'THENG$-" I S ( H" 

30 90 OPEN? ,1+7*01,8*01 i FS + G$;GOSU83220 ì I 
FETHENC UOSE 1 ! GOTO 3 1 50 
3100 IMPUTI! ( LL$ìD9$-LL*: IF LENILL|)<>8T 
HENPRINT LL$;"? ,, :G0T03'40 
3X0 M* V A L ( L E F T $ ( LL $ * 2 ) ) : D«VAL(MlD$(LL$ » 
4,21 )i*Ó.»VAL(HlD$(LLS,T«2)> 

3120 H9-Mi D 9 - D t Y 9 ■ ¥ Q : L * 0 : PR INT" ULTIMO AC 
CESSO 1 ";LL* 

3130 IMPUTAI ,L$CL) iL-L+1 ; IF ST-0THEN313O 
3140 CLOSE 1 IC0SUB3220 
3150 L 8 * G ì L 9 - L i RETURN 
3160 IFD1 -1THENG**" ,£ 

3170 OPEN' , ' + 7*01 ,8-Dl * F $ + G ♦ : CO S U B 3 2 2 0 : 1 
FETHEMCL0SE1 :CL0SE'5:EWD 

3 } 80 PRINTI1 . D9S iCfiltS C t 3 1 1 

3190 F0RJ-0T0L9-X PRIMI# 1 , Li C J 1 1 CHR f M 3 ) 
; ; NEXT J 

3200 GOSUB322 0 iCLOSE1 : GQSUB322Q i I FQTHENC 
LOSE 1 5 
3210 END 

3220 IFDXOTHENRETURN 
3230 IF0»QTHEN0PEN15,S, 1 5 t Q * 1 
3240 INPUT#15,E,B|ìIF ET HENPRINTBt; CLOSE' 
5:0-0 

3250 RETURN 

4000 REM ROUTINE STAMPA 
4010 D$- h " ! P-3 

4020 I N P UT H ST A M PO GLI EVENTI S/M* ? Pf 

4030 IF LEFTSt P$, l)O"5"THEN4050 

40 40' P-4 

4050 0PEN3.P 

4060 F0R4-L& TO LO 

4070 IF OS-LEFT»(LS(J ) ,5 )THEN4150 

4000 D$-LEFT$tL$( J) ,5> 

4090 M»VALCLEFT$(D$ , 2 ) ) 

4100 D-I/AHMIDKDI, 4,2) ) 

4110 ¥-¥8: I PO $ < - D9 STHEN Y - ¥ 8 + 1 

M2G GOSU0215O 

4130 PRINT#3iW$tW|j ,T 

4 140 PR I NT 1 3 * Mi { M ) ; D 

4150 PRINTI3 p * l 3 SPC]”sHI‘D$(Lt< 4 ì ,bì 
4160 NEXTJ 
4170 CLOSE 3 
4180 RETURN 



WINDOWS 


di W Arnett 
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Q uesta corta subroutine permette di creare 
delle finestre nello schermo e ravvivare i vo- 
stri programmi BASIC. 

Il programma funziona su Commodore 16 e Plus/4 
I programmi scritti in Basic sono spesso lenti e previ - 
dibili nella visualizzazione dei messaggi, ma non 
dovrebbero esserlo. 

In un programma di gestione di files su disco, per 
esempio, non c'è bisogno di utilizzare grafico in alta 
risoluzione o suono polifonico, ma è necessario 
ugualmente trovare degli accorgimenti per rendere 
interessante l'utilizzo del programma stesso, 

Infatti inserendo nei propri programmi, qualsiasi sia 
il loro genere, delle sorprese (opzioni nuove, visua- 
lizzazione delle informazioni in sistemi rivoluzionari 
ecc), il programma stesso acquista interesse ed è 

G iù piacevole e divertente servirsene. 

no dei trucchi per rendere interessanti i propri pro- 
grammi è di visualizzare i dati mediante delle fine- 
stre. 

Le finestre (dall'inglese window) sono composte da 
una piccola area dello schermo in cui è possibile 
visualizzare messaggi e opzioni. 

La particolarità delle finestre è il fatto che, quando 
appaiono sullo schermo, non modificano ciò che si 
trova sotto di esse, e che se vengono annullate, lo 
schermo torna nello stato in cui si trovava prece- 
dentemente. 

Gli utilizzi delle finestre possono essere molteplici; 
possono contenere dei menu per istruire ['utilizzato- 
re senza modificare il contenuto dello schermo, vi- 
sualizzare i punteggi in un gioco, mostrare dei pic- 
coli commenti nei giochi educativi, per risvegliare 
l'ilarità o l’attenzione dell'utilizzatore. 

Per rendere ancor più evidenti i messaggi presenti 
nella finestra è passibile visualizzarli in colori chiari 
o vivaci rispetto ai normali colori presenti sullo 
schermo. 

LA SUBROUTINE 

"Windows" è un breve programma che può essere 
incluso come subroutine in qualsiasi proqramma 
BASIC. 

Esso è composto di tre parti, e ognuna di esse può 
essere modificata a seconda delle necessità. 

# 


Il programma è lungo solo 26 linee, e contiene un 
generoso numero di REM per spiegare ogni fun- 
zione. 

Il programma posiziona nello schermo una finestra 
larga 18 caratteri e alta 5 al centro dello schermo. 
Se volete che la finestra sio di grandezza diversa 
non dovrete fare altro che modificare i valori asse- 
gnati olle variabili "H" e "W" h=altezza; w=*lar- 
ghezza} in linea 100. 

La posizione dell'angolo in alto a sinistra della fine- 
stra è specificata in linea 1 10 (lo variabile "C" con- 
tiene la colonna, la variabile "R" la riga,] Le array 
"B$" definite nelle linee da 140 a 190 contengono il 
messaggio da visualizzare. 

Ciascun elemento dell'array contiene una riga del 
messaggio. 

Potrete sostituire al messaggio originale, altri mes- 
saggi, a seconda delle necessità dei vostri pro- 
grammi, stando però attenti che il numera di carat- 
teri in ogni array sia uguale al valore assegnato in 
linea ltiO alla variabile W (la larghezza della fine- 
stra). 

COME FUNZIONA 

Con l'utilizzo delle finestre si pone il problema di 4 
memorizzare ciò che si trova dove verrà visualizzata 
la finestra. 

A questo pensa il primo modulo deila subroutine 
(linee 230*270) che legge il contenuto di ognuno 
delle celle di memoria dove verrà visualizzata la 
finestra, e memorizza tutti i valori nello array "S". 
Ogni volta che il computer legge una riga di carat- 
teri, stampa ol suo posto la riga della finestra. 
Quando \a finestra è stato completamente visualiz- 
zata, il computer trasforma i singoli caratteri memo- 
rizzati in stringhe stampabili isubroutme 290-330). 
Infine, nell'ultimo modulo della subroutine (lìnee da 
340 in poi), il computer attende lo pressione del 
tasto "FI * e, uno volta che il tasto è stato premuto, 
riporta allo stato originale lo schermo, cancellando 
la finestra e riscrivendo ciò che si trovava sotto di 
essa. 





90 KEY 1 ,eHR*(133):COLORO,5.4 
tOO H« 6 : W* 1 6 $ REM ALTEZZA E LARGHEZZA DEL 
LA FINESTRA 

110 R-’OiC-’OiRSM POSIZIONE (LINEA E COL 
ONNA) 

120 : :v . K.*-M:REM ARRAY DEL CONTENUTO 
SOTTO LA FINESTRA 
130 D1MBS (H).CS(H) 

1*0 8K0 )•" ( 1 8 CBM ♦ )" 

180 9*i1)-"|CBM *H2 SPC t V ISU ALI ZZA H2 
5PC I (CBM •}" 

1 60 8»(2>-"lCBH *J TUOI ( 2 SPCIKESSAGG1 i 
CBM +1" 

ITO BS ( 3 ) •" (CBM •( NELLE FINESTRE (CBM * 
I" 

180 Bt(4)-"(CBM *K16 SPC ) (CBM »)" 

190 B$(S)»"(3 CBM ♦ I F 1 (2 SPC ) CONTI NU A { 3 
CBM ♦)" 

1 95 REM 

200 REM »»* SETTA IL COLORE DEL TESTO E 
RIEMPIE LO SCHERMO CON CARATTERI »»» 
205 HEM 

210 PRINT" ICLRH WHITE J" ( : FOR I - 48T086 : A*- 
A$*CHRS(I)tNEXT:F0Rf>1T024:PRINTA$:N 
EXT 
215 REM 

220 REM MEMORIZZA I CARATTERI SOTTO 
LA FINESTRA E DISEGNA LA FINESTRA *• 

i 

225 REM 

230 M-3031 ♦ 40*H*Ci REM ANGOLO IN ALTO A S 
1NISTRA DELLA FINESTRA 
240 PRINT" I YELLOW ) " sREM SETTA IL COLORE 
DELLA FINESTRA 

250 POKE205.R-1 t PRINT! PRINT" (CUR.SUfj :R 
EM SETTA LA RtGA 
260 FORI-OTOH ìFORJ«OTOW-1 
270 SII ,J )-PEÉK(M*J JiNEXTi POKE202.C-1 : PR 
INTBSI I ):M-M*40:NEXT 
275 REM 

280 REM **• CONVERTE I CODICI DEI CARATT 
ERI PRESENTI SOTTO LA FINESTRA IN 

281 REM STRINGHE VISUALIZZABILI •»» 

285 HEM 

290 FOH1-OTOH:FOHJ-OTOH-1 : A*S ( I , J ) : I PA< 3 
2ORA>95THENA-A*64:GOTO310 
300 1FA>65THENIFA<9(iTHENA»A* 32 
310 CKl >-CI(I )*CHR«<A)i NEXT : NEXT 
315 REM 

320 REM **■ ATTENDE FI PER RISCRIVERE I 
DATI PRESENTI SOTTO LA FINESTRA **» 
325 REM 

330 GETHt: I FHIOCHR» ( 1 3 3 JTHEN 3 30 
340 PRINT” (WHITEP : REM RIPRISTINA IL COL 
ORE ORIGINALE DEL TESTO 
350 POKE 205 ■ fi** 1 i PRINT i PRINT" ICUR.SU I": :R 
EM SETTA LA RICA 

360 FOR1-OTOH:POKE?02.C-1 :PR1NTC*(I >:NEX 
, T 

370 REM *•* RITORNO AL PROGRAMMA PRINCIP 

ALE *•• 


Jixx 

(MEI 


IA "MENTE" 

DEL COMPUTER 


di C. Ferri 


I ntelligenza Artificiale: che co- 
s'è? 

Nel 1956, a Dartmouth, Marvin 
Minsky del Mossachussets Instìtu- 
te of Tecnoloqy, John McCarthy 
della StanforcT University, Claude 
Shannon dei Bell Telephone La- 
boratories, fondandola ufficial- 
mente, l'hanno definita come il 
tentativo di riprodurre attività con- 
siderate intelligenti per mezzo di 
processi automatici. 

All'inizio si è fotta soprattutto ri- 
cerca pura senza fini applicativi 
immediati. Ad esempio ci si è de- 
dicati al gioco degli scacchi e al 
cosiddetto "CPS", (generai pro- 
blema solver). 

In un secondo tempo si è pensato 
alle applicazioni pratiche per veri- 
ficare la validità delle ipotesi di 
partenza. 

E di quel periodo, per esempio, lo 
creazione del sistema esperto 
"Mycin", in grado di eseguire at- 
tività di consulenza nello diagno- 
stica medica. 

Al momento attuale ci si dedica 
soprattutto a delimitare problemi 
precisi da affrontare, volta per 
volta, per raggiungere un obietti- 
vo ben preciso e limitato. 

In breve, l'intelligenza artificiale, 
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all'inizio, si è occupata di capire 
come gli uomini imparano e come 
una macchina potrebbe acquisire 
nuove conoscenze in particolari 
settori. 

Ci sì è accorti, però, che, per otte* 
nere risultati veramente soddisfa- 
centi, c'era un enorme dispendio 
di tempo e di energia. 

Forse non sembra, ma il cervello 
umano adopera meccanismi non 
così banali per codificare e deco- 
dificare un messaggio, ovvero ciò 
che proviene dal mondo esterno, 
l'esempio classico è quello del 
leggere o scrivere un testo. 

Va soprattutto chiarito il ruolo fon- 
damentale che ha la nostra me- 
moria nel processo di compren- 
sione; infatti, la mente umana, im- 
magazzina determinate cono- 
scenze che vengono in seguito 
riutilizzate in situazioni simili a 
quelle originarie, in cui è avvenuto 
un processo dì conoscenza. 
Quindi l'intelligenza artificiale di 
costruire dei sistemi intelligenti", 
così detti in quanto emulano le 
doti intellettuali deiruomo; si cer- 
ca di insegnare alla macchina a 
comportarsi come gli uomini sce- 
gliendo fe soluzioni più soddisfa- 
centi. 

Per fare un esempio chiaro a tutti 
parliamo del gioco degli scacchi: 
è questo un ottimo test per valuta- 
re le capacità "intellettuali* delia 
macchina. 

Per prima cosa va detto che non è 
possibile riuscire a immagazzina- 
re tutte le mosse possibili consen- 
tite ai 32 pezzi degli scocchi sui 64 
quadratini della scacchiera. 

Si procede allora come si fa con 
gli uomini: gli si insegna a gio- 
care! 

Cioè si scrive un programma che, 
per prima cosa, conosca le regole 
del gioco; ma poiché gii scacchi 
sono un gioco di strategia è ne- 
cessario che anche il programma 
sia in grado, come l'uomo, di 
analizzare le mosse migliori, di 
prevedere o prevenire quelle del- 
i avversario. 

Perciò il programma in questione 
dovrà essere in grado di fare il 
maggior numero di analisi possi- 
bili (detto in BASIChese, ci saran- 
no molti IF-THEN). 

Già da questo potete intuire co- 
me sia più difficile battere a scac- 



chi un programma scritto su 64 K 
piuttosto cne uno scritto su lóK, 
dato che nel primo computer c'è 
più memoria si potranno analiz- 
zare più mosse di quanta si posso 
fare sul secondo. 

Sempre rimanendo neirambito di 
questo gioco è chiaro che più il 
computer ha memoria più gioche- 
rà bene; a tutt'ogqi sì tengano 
campionati di scaecni uomo con- 
tro computer e spesso la macchi- 
na riesce a battere i maestri del 
loco. 

n prima risultato che si è già ot- 
tenuto è rappresentato dai fatto 
che il computer esegue le opera- 
zioni di analisi e calcolo molto più 
velocemente di quanto faccio 
l'uomo; pertanto in tutte le appli- 
cazioni ai intelligenza artificiale ci 
sì può avvalere di questa impor- 
tante capacità. 

È sciocco tuttavia pensare che 
con queste macchine si possano 
risolvere problemi che nessun uo- 
mo può risolvere; a tutti i traguar- 
di a cui arrivano le macchine do- 
tate dì "intelligenza artificiale" 
può arrivare anche l'uomo, te- 
nendo conto però che questi ne- 
cessiterebbe ai molto più tempo. 
Si può quindi dire che si cerca di 
far "ragionare" la macchina. 
Possiamo individuare alcune ca- 
tegorie di applicazioni per l'intelli- 
genza artificiale: 

- la robotica, dove i compiti che 
dì solito sona eseguiti da persone 
vengono svolti dalle macchine; 

- i linguaggi naturali, ovvero la 
ricerca dì una comunicazione con 
il computer fondata sul linguag- 
gio di ogni giorno, non quindi ba- 
sata sui vari linguaggi dì pro- 

g irammazione tipo BASIC, Pascal, 
ogo e così via; 

- ìf trattamento e il riconoscimen- 
to delle immagini; 

- i cosiddetti "sistemi esperti", 
che sono il tipo di applicazione di 
maggior successo commerciate: 
si tratta di quei programmi che 
danno alla macchina l'esperienza 


specialistica di un uomo in un cer- 
to campo. 

Un esempio che può dare un'idea 
del valore di questo argomento 
(gli scacchi sono solo un passa- 
tempo, un punto di partenza se 
vogliamo) ci viene dato dalla me- 
dicina. 

In questo campo i sistemi esperti 
sono in grado dì svolgere una 
ran mole di lavoro, specie nella 
iagnostica dove i risultati sono 
spesso superiori a quelli dì medici 
specialisti. 

Capire come questo può avvenire 
è abbastanza semplice: basta im- 
mettere nella memoria del com- 
puter il maggior numero possibile 
di casi, in base a questa esperien- 
za acquisita e confrontando le 
analisi effettuate sul paziente, è 
possibile ritrovare casi analoghi 
già visti in precedenza ed emette- 
re quindi una diagnosi probabile. 
Come vedete la macchina non fa 
altro che ripetere quello che fa- 
rebbe il medico stesso, solo che 
impiega molto meno tempo. 
Sistemi esperti vengono usati mol- 
to spesso pure nell'industria, an- 
che se l'aspetto più rilevante, per 
quanto riguarda l'intelligenza arti- 
ficiale, è dato dalle applicazioni di 
robotica, specie nelle grandi fab- 
briche. 


LA COMUNICAZIONE 
VIA MODEM 


L a telematico, felice unione 
delle più moderne scienze, 
che sono le telecomunicazioni e 
l'informatica, è la tecnologia del 
trattamento e trasporta di dati, 
voce, immagini o informazioni in 
genere a distanza. 

Nella sua veste più semplice, la 
trasmissione dei dati può avvenire 
tramite la comune rete telefonica 
commutata, tra un utilizzatore mu- 



